home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / education / e022.dms / e022.adf / autoexec.AMOS / autoexec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1991-05-03  |  1.0 KB  |  50 lines
  1. Dim F$(20)
  2. Unpack 14 To 0
  3. Screen Open 1,640,62,8,Hires
  4. Screen Display 1,,182,,
  5. Curs Off : Flash Off : Cls 0 : Get Palette(0)
  6. Read NBR
  7. Reserve Zone NBR
  8. For Z=1 To NBR : Read F$(Z) : F$(Z)=Upper$(F$(Z)) : Next Z
  9. Data 4
  10. Data "spanish_tutor","french_tutor","german_tutor","italian_tutor"
  11. Gr Writing 0
  12. BX=1 : BY=1
  13. TX=5 : TY=10
  14. C=1
  15. Palette ,,,,,,,$0
  16. For Z=1 To 20
  17. Ink 7
  18. If C<NBR+1
  19. Text TX,TY,F$(C)
  20. Set Zone C,BX,BY To BX+155,BY+10
  21. End If 
  22. Box BX,BY To BX+155,BY+10
  23. Ink 1
  24. If C<NBR+1
  25. Text TX-1,TY-1,F$(C)
  26. Inc C
  27. End If 
  28. Draw BX,BY+10 To BX,BY : Draw BX,BY To BX+155,BY
  29. Add BY,12
  30. Add TY,12
  31. If Z=5 : BX=158 : TX=163 : TY=10 : BY=1 : End If 
  32. If Z=10 : BX=316 : BY=1 : TX=321 : TY=10 : End If 
  33. If Z=15 : BX=474 : BY=1 : TX=479 : TY=10 : End If 
  34. Next Z
  35. Repeat 
  36. If Mouse Zone>0 and Mouse Key=1
  37. Bell : MZ=Mouse Zone
  38. End If 
  39. Until MZ>0
  40. F$=F$(MZ)+".amos"
  41. Screen Close 1
  42. Ink 3,0
  43. Text 50,170,"Loading.........Please Wait"
  44. Ink 5
  45. Text 49,169,"Loading.........Please Wait"
  46. Ink 3 : Box 47,160 To 267,172
  47. Ink 1 : Draw 47,172 To 47,160 : Draw To 267,160
  48. Flash 5,"(fe0,8)(fff,8)(ff0,8)"
  49. Erase 14
  50. Run F$